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DISCLAIMER 



Although each program has been tested by its contributor, no 
warranty, express or implied, is made by the contributor or 
1620 USERS Group, as to the accuracy and functioning of the 
program and related program material, nor shall the fact of 
distribution constitute any such warranty, and no responsibility 
is assumed by the contributor or 1620 USERS Group, in con- 
nection therewith. 



1620 

Correction 



11.0.030 
April 7> 1965 



Attached are new pages for the flow chart, 
program listings and program output for 
this program. The source and object decks 
have been revised. 



1620 USERS GROUP PROGRAM REVIEW AND EVALUATION 
(fill out in typewriter or pencil, do not use ink) 

Program No. Date 

Program Name: 

1. Does the abstract adequately describe what the program is and what Yes _No_ 

it does? 

Comment 

2. Does the program do what the abstract says ? Yes No_ 

C ommen t 

3. Is the Description clear, understandable, and adequate? Yes No. 

Commen t 

4. Are the Operating Instructions understandable and in sufficient detail? Yes No. 

Comment ; • 

Are the Sense Switch options adequately described (if applicable)? Yes No. 

Are the mnemonic labels identified or sufficiently understandable? Yes No. 

Comment ; ; • 

5. Does the source program compile satisfactorily (if applicable)? Yes No. 

Comment 

6. Does the object program run satisfactorily? Yes No_ 

Comment^ 

7. Number of test cases run . Are any restrictions as to data, 

size, range, etc. covered adequately in description? Yes No_ 

Comment 

8. Does the Program Meet the minimal standards of the 1620 Users 

Group? Yes No. 

Comment 

9. Were all necessary parts of the program received? Yes No_ 

Comment 



10. Please list on the back any suggestions to improve the usefulness of the program. 
These will be passed onto the author for his consideration. 

Please return to: Your Name 



Company 



Address 



User Group Code . _ 

THIS REVIEW FORM IS PART OF THE 1620 USER GROUP ORGANIZATION'S PROGRAM 
REVIEW AND EVALUATION PROCEDURE. NONMEMBERS ARE CORDIALLY INVITED 
TO PARTICIPATE IN THIS EVALUATION. 



Mr. Richard L. Pratt 
Data Corporation 
7500 Old Xenia Pike 
Dayton, Ohio 45432 



11/09/64 



PERFECT NUMBER DEMONSTRATION PROGRAM 



John Sawyer, Jr. 

116 Belle Vista Court, N. W. 

Winston-Salem, North Carolina 



Modifications or revisions to this program, as they occur, 
will be announced in the appropriate Catalog of Programs 
for IBM Data Processing Systems. When such an announce- 
ment occurs, users should order a complete new program 
from the Program Information Department. 



DECK KEY 

Source Deck 
Object Deck 



PROGRAM ABSTRACT 



Title: Perfect Number Demonstration Program 
Author: John W. Sawyer, Jr. 



Direct Inquiries to: John W. Sawyer, Jr. 

116 Belle Vista Court, N.W. 
Winston-Salem, N.C» 27106 

Description: Perfect Numbers, by definition, are equal 
to the sum of their proper divisors* For example, 
6 is a perfect number, since 6*1+2+3. Until 1902, 
only 12 of these numbers were known. After this 
time computers were used to determine additional 
perfect numbers. 

This program types a brief history of perfect 
numbers, gives a summary of the method used to 
determine them, and computes rapidly the first 
five perfect numbers. 

Mathematical Method: If, for an integer n, 2 n - 1 

is a prime number, then 2 n "*'*'{2 n - 1) is a 
perfect number. This technique is attributed 
to Euclid. 

The program is written in Fortran with Format, 
and the object deck is compiled with UTO Fortran. 

Equipment Specifications : 20K Memory, 1622 Card Read-Punch. 

Time: Five minutes, including loading time. 



OPS HATING INSTRUCTIONS 

This program is self-explanatory and self- 
initiating. It is necessary merely to load the 
program: 

1. Clear Storage: 

A. Insert; type 16 00010 00000 

B. Release; start. 

C. Instant stop. 

D. Reset 

2. Place object deck in read hopper. 
3* Press load button. 

No program switches are used. 
All output is on the typewriter. 
The program ends with STOP 0000. 



PRINT 
DESCRIPTIVE 
TEXT 

I 

READ PRIME 
NUMBER TABLE 
' I ; — 

[ P2 
I 

1 B «2 H! - ll^3 

I 

IS B DIVISIBLE 
BY PRIME NUMBER 

< /B ? 

PERFECT NUMBER- 

BU**" 1 ) 
1 

PRINT N, 
PERFECT NUMBER 



N=N + 1 



1 

C PFRFECT NUMBER PROGRAM JOHN SAWYER 

PRINT 001 

001 FORMAT (5X,39HA PERFECT NUMBER IS EOUAL TO THE SUM OF) 
PR I NT 002 

902 FORMAT (44H ITS PROPER DIVISORS. FOR EXAMPLE, 6=1+2+3—) 
PR I NT 903 

903 FORMAT (29HHENCE, 6 IS A PERFECT NUMBER.) 
PR! NT 90 4 

904 FORMAT (IX) 
PRINT 905 

905 FORMAT (5X,35HPERFECT NUMBERS WERE STUDIED BY THE) 
PR I NT 906 

906 FORMAT ( 41 HPYTHAGOREAN SCHOOL AND MUCH MYSTICISM WAS) 
PRINT907 

907 FORMAT (38HC0NNECTED WITH THEM. AROUND 300 B. C.) 
PR I NT 908 

908 FORMAT (39HEUCL ID PROVED THE VALIDITY OF A FORMULA) 
PRINT909 

909 FORMAT (39HF0R FINDING PERFECT NUMBERS. IT STATES) 
PRINT910 

910 FORMAT (40HTH AT, FOR ANY POSITIVE INTEGRAL VALUE OF) 
PRINT 9111 

9111 FORMAT (13X,1HN) 
PRINT911 

911 FORMAT(36HN FOR WHICH 2 - 1 IS A PRIME NUMBER) 
PRINT 9121 . 

9121 FORMAT ( 1 6X, 3HN-1 ,2X,1HN) 
PRINT912 

912 FORMAT (32HTHE EXPRESSION 2 (2-1) WILL) 
PRINT913 

913 FORMAT (20HBE A PERFECT NUMBER.) 
PRINT904 

PRINT914 . 

914 FORMAT (5X, 3 SHUNT I L 1952 ONLY 12 OF THESE PERFECT) 
PRINT915 

915 FORMAT (39HNUMBERS WERE KNOWN. AFTER THAT TIME IT) 
PRINT916 

916 FORMAT (41 HWAS FOUND THAT COMPUTERS COULD BE USED TO) 
PRINT917 

917 FORMAT ( 3 9HG00D ADVANTAGE IN FINDING MORE OF THESE) 
PRINT918 

918 FORMAT (8HNUMBERS . ) 
PR I NT 904 
PRINT919 

919 FORMAT (5X,38HUS I NG THE FORMULA SET FORTH BY EUCLID,) 
PR I NT 920 

920 FORMAT (43HTHE 1620 WILL CALCULATE THE FIRST 5 PERFECT) 
PR I NT 921 

921 FORMAT (43HNUMBERS AND WILL PRINT THEM, ALONG WITH THE) 
PRINT922 

922 FORMAT (42HVALUES OF N USED TO PRODUCE THEM. THIS IS) 



09550 PR I NT 92 3 

09562 92 3 FORMAT ('tfHAN EXAMPLE OF HOW COMPUTERS CAN AID IN THE) 

09670 PRINTS 

0963? 92 U FORMAT (26HSTUDY OF PURE MATHEMATICS.) 

mi 53 PRINT90't 
097 7 PR I NT 92 5 

39732 925 FORMAT ( 5X, 38H JOHN SAWYER, STUDENT, DALTON JUNIOR) 

09390 PR I NT 92 6 

09902 926 FORMAT (*f?HH I GH SCHOOL, WINSTON-SALEM, NORTH CAROLINA) 

10010 PR I NT 90^ 

10022 PRINT 927 

Wmk 927 FORMAT (6X, 14H PERFECT NUMBER, 7X, 1HN) 

10110 PR I NT 90^ 

10122 DIMENSION A(27) 

T0122 N=2 

T0 1 if6 1 = 1 

T0170 DO 2 K=1,3 

10132 READ 1 , A( I ) r A( I + 1.) , A( 1+2 ) , A( I +3 )., A( I +.k) , A(.l +5) ,_A( I +6) , A 

10518 1 FORMAT (F5 .0 , F5 .0, F^.0 , F5 .0, F5 .0, F5 .0, F5 .0, F5 .0 ,F5 .0) 

T0S80 2 1 = 1*9 

10652 101 B=2.**N-1. 

10700 1=1 

T0724 3 DO 4 1=1,27 

1^736 Q=B/A(I ).. 

T0796 IF (9999.-0)5,12,12 

W6k 12 IF (O-A(l)) \h,h, 1 1 

10956 11 L=0 

10992 C=L 

11023 D=C*A(l) 

11038 IF (B-D)5,8,'f 

H 1 56 ^ CONTINUE . 

1110?. lh PNUM=B*2.**(N-1) 

11276 PRINT 10,PNLiM,N 

IM 12 10 FORMAT (F20.0,5X, 13) 

H3 46 3 N=N+1 

1HS2 GO TO 101 

in 90 5 STOP 

1 1 '402 END 



DATA CARDS (PRIME NUMBER TABLE) 



2 
29 
67 



3 
31 
71 



5 
37 
73 



7 
hi 
79 



1 1 
83 



13 
89 



17 
53 
97 



19 23 
59 61 
1*0 1 103 



o 



PROGRAM OUTPUT 



A PERFECT NUMBER IS EQUAL TO THE SUM OF 
ITS PROPER DIVISORS. FOR EXAMPLE, 6=1+2+3— 
HENCE, 6 IS A PERFECT NUMBER. 

PERFECT NUMBERS WERE STUDIED BY THE 
PYTHAGOREAN SCHOOL AND MUCH MYSTICISM WAS 
CONNECTED WITH THEM. AROUND 300 B.C. 
EUCLID PROVED THE VALIDITY OF A FORMULA 
FOR FINDING PERFECT NUMBERS. IT STATES 
THAT, FOR ANY POSITIVE INTEGRAL VALUE OF 
N 

,A(|+8) N FOR WHICH 2 - 1 IS A PRIME NUMBER 

N-1 N 

THE EXPRESSION 2 U - 1) WILL x 
BE A PERFECT NUMBER. 

UNTIL 1952 ONLY 12 OF THESE PERFECT 
NUMBERS WERE KNOWN. AFTER THAT TIME IT 
WAS FOUND THAT COMPUTERS COULD BE USED TO 
GOOD ADVANTAGE IN FINDING MORE OF THESE 
NUMBERS. 

USING THE FORMULA SET FORTH BY EUCLID, 
THE 1620 WILL CALCULATE THE FIRST 5 PERFECT 
NUMBERS AND WILL PRINT THEM, ALONG WITH THE 
VALUES OF N USED TO PRODUCE THEM. THIS IS 
AN EXAMPLE OF HOW COMPUTERS CAN AID IN THE 
STUDY OF PURE MATHEMATICS. 

—-JOHN SAWYER, STUDENT, DALTON JUNIOR 
HIGH SCHOOL, Wl HSTON-SALEM, NORTH CAROLINA 

PERFECT NUMBER M 

6~ 2 
28, 3 
5 

001* 8128, 7 

002* 33550336. 13 

003* STOP 0000 



o 























DATA 


j:ards 


(PRIME NUMBER TARI F ) 


hi 






•) 


3 


5 


7 


1 1 


13 


17 


19 


23 1 




001 


?«> 


31 


37 


41 


43 


47 


53 


59 


61 




002 ' 


67 


71 


73 


79 


83 


89 


97 


101 


103 




003 


107 


15)9 


113 


127 


131 


137 


139 


149 


151 




004 


157 


163 


167 


173 


179 


182 


191 


193 


197 




005 


14)4) 


211 


223 


227 


229 


233 


239 


241 


251 




006 


?*n 


263 


269 


271 


277 


281 


283 


293 


307 




007 


31 1 


313 


317 


331 


337 


347 


349 


353 


359 




008 


367 


373 


379 


38? 


389 


397 


401 


409 


419 




009 • 


1+2 1 


431 


433 


|*39 


M*3 


449 


457 


461 


463 




0.1 


467 


479 


487 


491 


499 


503 


539 


521 


523 




011 


541 


547 


557 


563 


569 


571 


577 


587 


593 




0,12 


599 


601 


607 


613 


617 


619 


631 


641 


643 




013 


447 


653 


659 


661 


673 


677 


683 


69I 


701 




014 


739 


719 


727 


733 


739 


743 


751 


757 


761 




015 


769 


773 


787 


P 7 


809 


81 1 


821 


823 


827 




016 


829 


839 


853 


857 


859 


863 


877 


381 


883 




• 17 


887 


907 


911 




929 


937 


941 


947 


953 




018 


967 


971 


977 


983 


991 


997 


1009 


1013 


1019 




019 


1#21 


1031 


1033 


1039 12)49 1851 


1061 


1063 


1069 




120 


1387 


1091 


1093 


1097 


1 103 


1109 


1117 


1123 


1129 




•21 


1151 


1153 


1163 


1171 


1181 


1187 


1193 


1201 


1213 




022 


1217 


1223 


1229 


1231 


1237 


1249 1259 1277 


1279 




023 


1283 


1289 


1291 


1297 


1301 


1303 


1307 


1319 


1321 




024 


1327 


1361 


1367 


1373 


H81 


H99 


1409 


1423 


1427 




025 


1429 


1433 


1439 


1447 


1451 


1453 


1459 


1471 


1481 




026 


1483 


1487 


1489 


1493 


1499 


1511 


1523 


1531 


1543 




027 


1540 


1553 


1559 


1567 


1571 


1579 


1583 


1592 


1601 




028 


1W 


1609 


1613 


1619 


1621 


1627 


1637 


1657 


1663 




029 


1667 


1669 


1693 


1697 


1699 


1709 


1721 


1723 


1733 




030 


1741 


1747 


1753 


1759 


1777 


1783 


1787 


1789 


1801 




#31 


1811 


1823 


1831 


18^7 


1861 


1867 


1871 


1873 


1877 




032 


1879 


1889 


1901 


1997 


1913. 


1931 


1933 


1949 


1951 




033 


1973 


1979 


1987 


1991 


1993 


1997 


1999 


2303 


2011 




034 


2417 2927 2*329 2039 2053 


2063 


2069 


2981 







035 



LLLS 



PR O GRAM OUTPUT 



A PERFECT NUMBER IS EQUAL TO THE SUM OF 



ITS PROPER DIVISORS. FOR EXAMPLE, 6=1+2+3— 



HENCE. 6 IS A PERFECT NUMBER. 



PERFECT NUMBERS WERE STUDIED BY THE 

PYTHAGOREAN SCHOOL AND MUCH MYSTICISM WAS 
CONNECTED WITH THEM. AROUND 300 B. C. 
EUCLID PROVED THE VALIDITY OF A FORMULA 
FOR FINDING PERFECT NUMBERS. IT STATES 
THAT, FOR ANY POSITIVE INTEGRAL VALUE OF 
N FOR WHICH (2**N)-1 IS A PRIME NUMBER^ 
THE EXPRESSION (2**(N-1 ) )*( (2**N}-1 } WILL 
BE A PERFECT NUMBER. 

UNTIL 1952 ONLY 12 OF THESE PERFECT 
NUMBERS WERE KNOWN. AFTER, THAT TIME IT 
WAS FOUND THAT COMPUTERS C6ULD BE USED TO" 
GOOD ADVANTAGE IN FINDING MORE OF THESE 
NUMBERS. 



USING THE FORMULA SET FORTH BY EUCLTdT 
THE 1620 WILL CALCULATE THE FIRST 5 PERFE CT 
NUMBERS AND WILL PRINT THEM. ALONG WITH THE 
VALUE OF N USED TO PRODUCE THEM . THIS IS 
AN EXAMPLE OF HOW COMPUTERS CAN AID IN THE 
STUDY OF PURE MATHEMATICS. 

JOWIaWYER, STUDENT, DALTON JUNIOR 

HIGH SCHOOL, WINSTON-SALEM,, NORTH CAROLINA 

PERFECT NUMBER ' N ■ 

6. 2 

23. 3 

496. 5 

8128. 7 

33550336. 13 ~ 

STOP 0000 , 



